home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
mac
/
00000000
/
06000000
/
06040000
/
06040000.dir
/
00029_Script_29
< prev
next >
Wrap
Text File
|
1995-11-09
|
756b
|
24 lines
-- Script to stick the caption to the mouse cursor
-- whilst at the same time hiding the cursor. As the
-- caption is QuickDraw text, its registration point
-- is offset to the top left. This script compensates
-- for that by calculating the relative difference
-- between reg point and mouse grabbing point.
on mouseDown
cursor 200
put the clickOn into whichSprite
puppetSprite whichSprite, true
put the locH of sprite whichSprite - the mouseH into Hdiff
put the locV of sprite whichSprite - the mouseV into Vdiff
repeat while the stillDown
set the locH of sprite whichSprite to the mouseH + Hdiff
set the locV of sprite whichSprite to the mouseV + Vdiff
updateStage
end repeat
cursor -1
end